perm filename ADDER.F4[CMS,MUS] blob
sn#075965 filedate 1973-12-12 generic text, type T, neo UTF8
00100 DIMENSION X(10)
00200 Z=0
00300 101 TYPE 5
00400 5 FORMAT(' ADD, SUB, MULT OR DIV?'/)
00500 ACCEPT 6,A
00600 6 FORMAT(A1)
00700 4 TYPE 1
00800 1 FORMAT(' TYPE NUMBERS'/)
00900 ACCEPT 2,X
01000 2 FORMAT(10F)
01100 IF(A.EQ.'A')GO TO 10
01200 IF(A.EQ.'S')GO TO 20
01300 IF(A.EQ.'M')GO TO 30
01400 A=X(1)/X(2)
01500 GO TO 100
01600 20 A=X(1)-X(2)
01700 GO TO 100
01800 30 A=X(1)*X(2)
01900 GO TO 100
02000 10 A=0
02100 DO 11 K=1,10
02200 11 A=A+X(K)
02300 100 Z=Z+A
02400 TYPE 3,X,A,Z
02500 3 FORMAT(F12.3)
02600 GO TO 101
02700 END